home *** CD-ROM | disk | FTP | other *** search
- /*
- ** AGA Colourlist Demo
- ** -------------------
- ** Displays an AGA colourlist (24 bit colour lines). To exit the demo, press
- ** the left mouse button.
- **
- ** To compile with SAS/C
- ** 1> sc Colourlist.c link startup=LIB:GMSMain.o data=far
- */
-
- #include <proto/games.h>
-
- extern struct GMSBase *GMSBase;
- ULONG _XCEXIT = NULL;
- ULONG PREFSNAME = DEFAULT;
-
- LONG Colourlist[257];
- LONG Rasterlist[] = {
- COLOURLIST(0,1,0,&Colourlist),
- RASTEND
- };
-
- void main(void)
- {
- struct GameScreen *GameScreen;
- UWORD i;
-
- for (i=0; i<257; i++) { /* Generate our colourlist */
- Colourlist[i] = i<<16;
- } Colourlist[i] = -1;
-
- if (GameScreen = AddScreenTags(TAGS_GAMESCREEN,NULL,
- GSA_Planes,1,
- GSA_Rasterlist,Rasterlist,
- TAGEND)) {
-
- ShowScreen(GameScreen);
- WaitLMB();
- DeleteScreen(GameScreen);
- }
- }
-
-